FORMULAR & PARAMETRY

Otázka od: LUKES Václav

7. 11. 2002 16:45


PROSIM, POMOOOOOOOCT

Prosim o radu, protoze jsem z toho uz na prasky.
Jde mi o vytvoreni formulare s parametry.


Napr. v UNIT_1 mam proceduru:

procedure TForm.VytvorForm(Titulek: string; Sirka, Vyska: integer);
begin
  VytvorForm('Tohle je okno', 100, 100);
end;

rad bych po zavolani teto procedury programove vytvoril formular, treba MyForm,
kde Caption bude prvni parametr, Height druhy a Width treti.

Muzete mi prosim nekdo napsat maly priklad ?

Moc diky

V.

PS: A jeste nejlepe, kdyby to nebyla procedura, ale funkce a vracela mi, jak
treba to vytvoreni dopadlo.

Odpovedá: Števlík Marián

7. 11. 2002 16:38

fcia ti vrati pointer na formular alebo nil, ak sa ho nepodarilo vytvorit

function CreateMyForm(const isCaption: string; const inHeight, inWidth:
integer): TForm;
begin
  Result := TMyForm.Create(Application);
  if (Assigned(Result)) then
  begin
    Result.Caption := isCaption;
    Result.Height := inHeight;
    Result.Width := inWidth;
    Result.Show;
  end;
end;

alebo ak chces len dialog a chces jeho navratovu hodnotu

function CreateMyForm(const isCaption: string; const inHeight, inWidth:
integer): integer;
var
  lrFrm: TMyForm;
begin
  lrFrm := TMyForm.Create(Application);
  try
    lrFrm.Caption := isCaption;
    lrFrm.Height := inHeight;
    lrFrm.Width := inWidth;
    Result := lrFrm.ShowModal;
  finally
    lrFrm.Release;
  end;
end;

pisane z hlavy, takze maybe male chybky ;)

Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik@merlin.cz
tel: +420 241010111 (181)
fax: +420 241010165
ICQ: 38493645

-----Původní zpráva-----
Od: LUKES Václav [mailto:lukes@ans.cz]
Odesláno: 7. listopadu 2002 16:04
Komu: delphi-l@clexpert.cz
Předmět: FORMULAR & PARAMETRY



PROSIM, POMOOOOOOOCT

Prosim o radu, protoze jsem z toho uz na prasky.
Jde mi o vytvoreni formulare s parametry.


Napr. v UNIT_1 mam proceduru:

procedure TForm.VytvorForm(Titulek: string; Sirka, Vyska: integer);
begin
  VytvorForm('Tohle je okno', 100, 100);
end;

rad bych po zavolani teto procedury programove vytvoril formular, treba
MyForm,
kde Caption bude prvni parametr, Height druhy a Width treti.

Muzete mi prosim nekdo napsat maly priklad ?

Moc diky

V.

PS: A jeste nejlepe, kdyby to nebyla procedura, ale funkce a vracela mi, jak
treba to vytvoreni dopadlo.

Odpovedá: Ales Vasicek

7. 11. 2002 16:33

function VytvorForm(const Titulek: string; const Sirka, Vyska: integer)
: TModalResult;
begin
  MyForm := TMyForm.Create(nil);
  try
    MyForm.Caption := Titulek;
    MyForm.Width := Sirka;
    MyForm.Height := Vyska;

    Result := MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;

A.

> -----Original Message-----
> From: LUKES Václav [mailto:lukes@ans.cz]
>
>
> Napr. v UNIT_1 mam proceduru:
>
> procedure TForm.VytvorForm(Titulek: string; Sirka, Vyska: integer);
> begin
> VytvorForm('Tohle je okno', 100, 100);
> end;
>
> rad bych po zavolani teto procedury programove vytvoril
> formular, treba MyForm,
> kde Caption bude prvni parametr, Height druhy a Width treti.
>
> Muzete mi prosim nekdo napsat maly priklad ?

Odpovedá: Petr Vones

7. 11. 2002 16:12

From: "LUKES Václav" <lukes@ans.cz>
> rad bych po zavolani teto procedury programove vytvoril formular, treba
> MyForm, kde Caption bude prvni parametr, Height druhy a Width treti.

function CreateForm(FormClass: TFormClass; const Caption: string; Width,
Height: Integer): TForm;
begin
  Result := FormClass.Create(Application);
  Result.Caption := Caption;
  Result.SetBounds(Result.Left, Result.Top, Width, Height);
  Result.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateForm(TForm1, 'Titulek', 100, 100);
end;

Petr Vones
______________________________________________________
Zachrante kolacky a koblihy: http://www.kobliha.4ip.cz

Odpovedá: LUKES Václav

7. 11. 2002 16:50


DIKY VSEM ZA POMOC A RADU.
V.




-----Original Message-----
From: Ales Vasicek [mailto:vasicek@ecommerce.cz]
Sent: Thursday, November 07, 2002 4:09 PM
To: delphi-l@clexpert.cz
Subject: RE: FORMULAR & PARAMETRY


function VytvorForm(const Titulek: string; const Sirka, Vyska: integer)
: TModalResult;
begin
  MyForm := TMyForm.Create(nil);
  try
    MyForm.Caption := Titulek;
    MyForm.Width := Sirka;
    MyForm.Height := Vyska;

    Result := MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;

A.

> -----Original Message-----
> From: LUKES Václav [mailto:lukes@ans.cz]
>
>
> Napr. v UNIT_1 mam proceduru:
>
> procedure TForm.VytvorForm(Titulek: string; Sirka, Vyska: integer);
> begin
> VytvorForm('Tohle je okno', 100, 100);
> end;
>
> rad bych po zavolani teto procedury programove vytvoril
> formular, treba MyForm,
> kde Caption bude prvni parametr, Height druhy a Width treti.
>
> Muzete mi prosim nekdo napsat maly priklad ?

Odpovedá: Petr Vones

7. 11. 2002 16:52

From: "Števlík Marián" <Marian.Stevlik@merlin.cz>
> function CreateMyForm(const isCaption: string; const inHeight, inWidth:

Netusil jsem ze i do pascalu bude nekdo zavadet hungarian notation   Viz
pravidlo 30 "How To Write Unmaintainable Code Naming":
http://mindprod.com/unmainnaming.html

Petr Vones
______________________________________________________
Zachrante kolacky a koblihy: http://www.kobliha.4ip.cz